perm filename INIT.LSP[206,JMC] blob sn#075509 filedate 1973-12-03 generic text, type T, neo UTF8
(SETQ LPTLENGTH 69.) 

(DEFPROP FSETQ
 (LAMBDA(YUK)
  (PROG	(ATM1 ATM2)
	(MAPC (QUOTE SET) (QUOTE (ATM1 ATM2)) YUK)
	(RETURN
	 (PROG (PROP PROPL)
	       (SETQ PROPL (QUOTE (EXPR SUBR FEXPR FSUBR MACRO)))
	  LOOP (COND
		((NULL PROPL) (BREAK1 NIL T (QUOTE FSETQ) NIL NIL)))
	       (SETQ PROP (CAR PROPL))
	       (SETQ PROPL (CDR PROPL))
	       (COND
		((GET ATM2 PROP) (PUTPROP ATM1 (GET ATM2 PROP) PROP)
				 (RETURN ATM1)))
	       (GO LOOP)))))
FEXPR)